
#Region "Summary"
''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvDataApprove
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Query Result Single Business Entity
''' </summary>
''' <remarks>
''' Sample of business entity coding
''' </remarks>
''' <history>
''' 	[Generater by Nok]	28/6/2549 9:10:50	Created
''' </history>
''' -----------------------------------------------------------------------------
#End Region

#Region ".NET Framework Class Import"
Imports System
Imports System.Xml.Serialization
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Collections
#End Region

<Serializable()> _
Public Class QueryInvDataApprove
#Region "Internal member variables"
    Private _ApproveBdId As String
    Private _ApproveBd As Int32
    Private _Admin As Int32
    Private _ApproveAgent As Int32
    Private _MainMenu As Int32
    Private _Status As Int32
#End Region

    Public Sub New()
        _ApproveBdId = Nothing
        _ApproveBd = Nothing
        _Admin = Nothing
        _ApproveAgent = Nothing
        _MainMenu = Nothing
        _Status = Nothing
    End Sub

    Public Sub New(ByVal ApproveBdId As String, _
       ByVal ApproveBd As Int32, _
       ByVal Admin As Int32, _
       ByVal ApproveAgent As Int32, _
       ByVal MainMenu As Int32, _
       ByVal Status As Int32)
        _ApproveBdId = ApproveBdId
        _ApproveBd = ApproveBd
        _Admin = Admin
        _ApproveAgent = ApproveAgent
        _MainMenu = MainMenu
        _Status = Status
    End Sub

#Region "Property"

    Public Property ApproveBdId() As String
        Get
            Return _ApproveBdId
        End Get
        Set(ByVal value As String)
            _ApproveBdId = value
        End Set
    End Property


    Public Property ApproveBd() As Int32
        Get
            Return _ApproveBd
        End Get
        Set(ByVal value As Int32)
            _ApproveBd = value
        End Set
    End Property


    Public Property Admin() As Int32
        Get
            Return _Admin
        End Get
        Set(ByVal value As Int32)
            _Admin = value
        End Set
    End Property


    Public Property ApproveAgent() As Int32
        Get
            Return _ApproveAgent
        End Get
        Set(ByVal value As Int32)
            _ApproveAgent = value
        End Set
    End Property


    Public Property MainMenu() As Int32
        Get
            Return _MainMenu
        End Get
        Set(ByVal value As Int32)
            _MainMenu = value
        End Set
    End Property


    Public Property Status() As Int32
        Get
            Return _Status
        End Get
        Set(ByVal value As Int32)
            _Status = value
        End Set
    End Property

#End Region
End Class

''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvDataApproves
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Collection of query result
''' </summary>
''' <remarks>
''' Sample
''' </remarks>
''' <history>
''' 	[NOK'S Generater]	28/6/2549 9:10:50	Created
''' </history>
''' -----------------------------------------------------------------------------
<Serializable()> _
Public Class QueryInvDataApproves
    Inherits CollectionBase


    Default Public ReadOnly Property Item(ByVal index As Integer) As QueryInvDataApprove
        Get
            If (index < 0 Or index >= Me.InnerList.Count) Then
                Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
            Else
                Return CType(Me.InnerList(index), QueryInvDataApprove)
            End If
        End Get
    End Property

    Public Sub Add(ByVal info As QueryInvDataApprove)
        Me.InnerList.Add(info)
    End Sub

    Public Sub SetItem(ByVal index As Integer, ByVal value As QueryInvDataApprove)
        If (index < 0 Or index >= Me.InnerList.Count) Then
            Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
        Else
            Me.InnerList(index) = value
        End If
    End Sub


End Class
